source Threaded.tcl
source Charmm.tcl

oo::define Charmm mixin threaded

set nodes {node1 node2}

foreach node $nodes {
    Charmm create $node {
	bin imm1pb
	dir current
	cmds no
	output charmm.out 
    }
}

foreach node $nodes {
    $node do {
	load rtf ~/simulation/common/
	load para ~/simulation/common/
	
    }
    
}
foreach node $nodes {
    puts [$node finished do]
}
